home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Editools.pxl < prev    next >
Text File  |  2001-07-31  |  51KB  |  1,622 lines
  1. {    Filename    :     editools.pxl
  2.      Purpose    :    Help application
  3.     Date        :    November 1997
  4.     Author        :    Stewart DIBBS, VYSOR
  5. History:
  6.  
  7.     Version    :      5.10    RELEASE
  8.     Update        :      Add programmed support for geoPiXCL
  9.     Date        :      August 2001
  10.  
  11. --------------------------------------------------------------------------}
  12. Initialize:
  13.     UseCoordinates(PIXEL)
  14.     UseBackGround(TRANSPARENT,192,192,192)
  15.     DrawBackGround
  16.     WaitInput(100)  {let NT and 9x catch up}
  17.     InfoMenu(REMOVE)
  18. {    Need to check PC screen resolution }
  19.     GetScreenCaps(HORZRES,Hres)
  20.     CurrentHRes = Hres
  21.     GoSub GetWorkingDirectory
  22.     {Is this PiXCL or geoPiXCL}
  23.     AppWindowHandle(Handle,Handle$, geoPiXCLFlag,Major,Minor)
  24.     UseCursor(ZOOM)
  25.  
  26.  
  27.  
  28. Initialize_1:
  29.     GoSub SetParameters
  30.     Title$ = "Icons"
  31.     UseCaption(Title$)
  32.     WinLocate(Title$,wx1,wy1,wx2,wy2,Res)
  33.     SetMenu()
  34.  
  35.     GoSub Show_Icons
  36.     If Hres = 640
  37.         GoSub Make_Tool_Windows640
  38.     Else
  39.          GoSub Make_Tool_Windows
  40.     Endif
  41.     WinGetClientRect("",wx1,wy1,wx2,wy2)
  42.     SetCtrlRightMouse(wx1,wy1,wx2,wy2,ChangeSize,n,n)
  43.     
  44.  
  45. Wait_for_Input:
  46.     WaitInput()
  47.  
  48.  
  49. Leave:
  50.     ToolWindow()
  51.     End
  52.  
  53. ChangeSize:
  54.     DrawBackground
  55.     If Hres > 640 Then Hres = 640  ToolWindow()    GoTo Initialize_1
  56.     If Hres = 640 Then Hres = CurrentHRes  ToolWindow()  GoTo Initialize_1
  57.         
  58.  
  59. SelectAcolor:
  60.     InvertRectangle(Bdr0,5,Bdr4,Bdr3)
  61.     ChooseColor(FULL,Red,Green,Blue)
  62.     InvertRectangle(Bdr0,5,Bdr4,Bdr3)
  63.     If Red = -1 Then ClipboardEmpty Goto Wait_for_Input
  64.     Str(Red,Red$)  Str(Green,Green$)  Str(Blue,Blue$)
  65.     Code$ = Red$ + ","
  66.     Code$ = Code$ + Green$
  67.     Code$ = Code$ + ","
  68.     Code$ = Code$ + Blue$
  69.     ClipBoardPut(Code$,Res)
  70.     Goto Wait_for_Input
  71.  
  72. SelectAfont:
  73.     InvertRectangle(Bdr5,5,Bdr6,Bdr3)
  74.     ChooseFont(Font$,Width,Height,Red,Green,Blue,Bold,Italic,Underline,Strikeout)
  75.     InvertRectangle(Bdr5,5,Bdr6,Bdr3)
  76.     If Font$ <> ""
  77.         Chr(13,cr$) Chr(10,lf$) crlf$ = cr$ + lf$   
  78.         Str(Width,Width$)  Str(Height,Height$)
  79.         Str(Red,Red$)  Str(Green,Green$)  Str(Blue,Blue$)
  80.         Str(Bold,Bold$)  Str(Italic,Italic$)  Str(Underline,Underline$) Str(Strikeout,Strikeout$)
  81.         {Code is "UseFontExt(Font$,Width,Height,Bold,Italic,Underline,Strikeout,r,g,b)" }
  82.         Chr(34,Quote$)
  83.         Code$ = "UseFontExt("
  84.         Code$ = Code$ + Quote$
  85.         Code$ = Code$ + Font$
  86.         Code$ = Code$ + Quote$
  87.         Code$ = Code$ + ","
  88.         Code$ = Code$ + Width$
  89.         Code$ = Code$ + ","
  90.         Code$ = Code$ + Height$
  91.         Code$ = Code$ + ","
  92.         Code$ = Code$ + Bold$
  93.         Code$ = Code$ + ","
  94.         Code$ = Code$ + Italic$
  95.         Code$ = Code$ + ","
  96.         Code$ = Code$ + Underline$
  97.         Code$ = Code$ + ","
  98.         Code$ = Code$ + Strikeout$
  99.         Code$ = Code$ + ","
  100.         Code$ = Code$ + Red$
  101.         Code$ = Code$ + ","
  102.         Code$ = Code$ + Green$
  103.         Code$ = Code$ + ","
  104.         Code$ = Code$ + Blue$
  105.         Code$ = Code$ + ")"
  106.         ClipBoardPut(Code$,Res)
  107.     Endif    
  108.     Goto Wait_for_Input
  109.  
  110. Icon01:
  111.     InvertRectangle(Col1,Row1,Col1a,Row1a) 
  112.     ClipboardPut("MessageBox(OK,1,ICON01,",Res) 
  113.     WaitInput(300)
  114.     InvertRectangle(Col1,Row1,Col1a,Row1a) 
  115.     Goto Wait_for_Input 
  116. Icon02:
  117.     InvertRectangle(Col2,Row1,Col2a,Row1a)   
  118.     ClipboardPut("MessageBox(OK,1,ICON02,",Res)
  119.     WaitInput(300)
  120.     InvertRectangle(Col2,Row1,Col2a,Row1a)   
  121.     Goto Wait_for_Input
  122. Icon03:
  123.     InvertRectangle(Col3,Row1,Col3a,Row1a)
  124.     ClipboardPut("MessageBox(OK,1,ICON03,",Res)
  125.     WaitInput(300)
  126.     InvertRectangle(Col3,Row1,Col3a,Row1a)
  127.     Goto Wait_for_Input
  128. Icon04:
  129.     InvertRectangle(Col1,Row2,Col1a,Row2a)
  130.     ClipboardPut("MessageBox(OK,1,ICON04,",Res)
  131.     WaitInput(300)
  132.     InvertRectangle(Col1,Row2,Col1a,Row2a)
  133.     Goto Wait_for_Input
  134. Icon05:
  135.     InvertRectangle(Col2,Row2,Col2a,Row2a)
  136.     ClipboardPut("MessageBox(OK,1,ICON05,",Res)
  137.     WaitInput(300)
  138.     InvertRectangle(Col2,Row2,Col2a,Row2a)
  139.     Goto Wait_for_Input
  140. Icon06:
  141.     InvertRectangle(Col3,Row2,Col3a,Row2a)
  142.     ClipboardPut("MessageBox(OK,1,ICON06,",Res)
  143.     WaitInput(300)
  144.     InvertRectangle(Col3,Row2,Col3a,Row2a)
  145.     Goto Wait_for_Input
  146.  
  147. Icon07:
  148.     InvertRectangle(Col1,Row3,Col1a,Row3a)
  149.     ClipboardPut("MessageBox(OK,1,ICON07,",Res)
  150.     WaitInput(300)
  151.     InvertRectangle(Col1,Row3,Col1a,Row3a)
  152.     Goto Wait_for_Input
  153. Icon08:
  154.     InvertRectangle(Col2,Row3,Col2a,Row3a)
  155.     ClipboardPut("MessageBox(OK,1,ICON08,",Res)
  156.     WaitInput(300)
  157.     InvertRectangle(Col2,Row3,Col2a,Row3a)
  158.     Goto Wait_for_Input
  159. Icon09:
  160.     InvertRectangle(Col3,Row3,Col3a,Row3a)
  161.     ClipboardPut("MessageBox(OK,1,ICON09,",Res)
  162.     WaitInput(300)
  163.     InvertRectangle(Col3,Row3,Col3a,Row3a)
  164.     Goto Wait_for_Input
  165. Icon10:
  166.     InvertRectangle(Col1,Row4,Col1a,Row4a)
  167.     ClipboardPut("MessageBox(OK,1,ICON10,",Res)
  168.     WaitInput(300)
  169.     InvertRectangle(Col1,Row4,Col1a,Row4a)
  170.     Goto Wait_for_Input
  171. Icon11:
  172.     InvertRectangle(Col2,Row4,Col2a,Row4a)
  173.     ClipboardPut("MessageBox(OK,1,ICON11,",Res)
  174.     WaitInput(300)
  175.     InvertRectangle(Col2,Row4,Col2a,Row4a)
  176.     Goto Wait_for_Input
  177. Icon12:
  178.     InvertRectangle(Col3,Row4,Col3a,Row4a)
  179.     ClipboardPut("MessageBox(OK,1,ICON12,",Res)
  180.     WaitInput(300)
  181.     InvertRectangle(Col3,Row4,Col3a,Row4a)
  182.     Goto Wait_for_Input
  183. Icon13:
  184.     InvertRectangle(Col1,Row5,Col1a,Row5a)
  185.     ClipboardPut("MessageBox(OK,1,ICON13,",Res)
  186.     WaitInput(300)
  187.     InvertRectangle(Col1,Row5,Col1a,Row5a)
  188.     Goto Wait_for_Input
  189. Icon14:
  190.     InvertRectangle(Col2,Row5,Col2a,Row5a)
  191.     ClipboardPut("MessageBox(OK,1,ICON14,",Res)
  192.     WaitInput(300)
  193.     InvertRectangle(Col2,Row5,Col2a,Row5a)
  194.     Goto Wait_for_Input
  195. Icon15:
  196.     InvertRectangle(Col3,Row5,Col3a,Row5a)
  197.     ClipboardPut("MessageBox(OK,1,ICON15,",Res)
  198.     WaitInput(300)
  199.     InvertRectangle(Col3,Row5,Col3a,Row5a)
  200.     Goto Wait_for_Input
  201. Icon16:
  202.     InvertRectangle(Col1,Row6,Col1a,Row6a)
  203.     ClipboardPut("MessageBox(OK,1,ICON16,",Res)
  204.     WaitInput(300)
  205.     InvertRectangle(Col1,Row6,Col1a,Row6a)
  206.     Goto Wait_for_Input
  207. Icon17:
  208.     InvertRectangle(Col2,Row6,Col2a,Row6a)
  209.     ClipboardPut("MessageBox(OK,1,ICON17,",Res)
  210.     WaitInput(300)
  211.     InvertRectangle(Col2,Row6,Col2a,Row6a)
  212.     Goto Wait_for_Input
  213. Icon18:
  214.     InvertRectangle(Col3,Row6,Col3a,Row6a)
  215.     ClipboardPut("MessageBox(OK,1,ICON18,",Res)
  216.     WaitInput(300)
  217.     InvertRectangle(Col3,Row6,Col3a,Row6a)
  218.     Goto Wait_for_Input
  219. Icon19:
  220.     InvertRectangle(Col1,Row7,Col1a,Row7a)
  221.     ClipboardPut("MessageBox(OK,1,ICON19,",Res)
  222.     WaitInput(300)
  223.     InvertRectangle(Col1,Row7,Col1a,Row7a)
  224.     Goto Wait_for_Input
  225. Icon20:
  226.     InvertRectangle(Col2,Row7,Col2a,Row7a)
  227.     ClipboardPut("MessageBox(OK,1,PXLHISTOGRAM,",Res)
  228.     WaitInput(300)
  229.     InvertRectangle(Col2,Row7,Col2a,Row7a)
  230.     Goto Wait_for_Input
  231. Icon21:
  232.     InvertRectangle(Col3,Row7,Col3a,Row7a)
  233.     ClipboardPut("MessageBox(OK,1,PXLTOOLBAR,",Res)
  234.     WaitInput(300)
  235.     InvertRectangle(Col3,Row7,Col3a,Row7a)
  236.     Goto Wait_for_Input
  237.  
  238.  
  239. Icon22:
  240.     InvertRectangle(Col1,Row8,Col1a,Row8a)
  241.     ClipboardPut("MessageBox(OK,1,INFORMATION,",Res)
  242.     WaitInput(300)
  243.     InvertRectangle(Col1,Row8,Col1a,Row8a)
  244.     Goto Wait_for_Input
  245. Icon23:
  246.     InvertRectangle(Col2,Row8,Col2a,Row8a)
  247.     ClipboardPut("MessageBox(OK,1,EXCLAMATION,",Res)
  248.     WaitInput(300)
  249.     InvertRectangle(Col2,Row8,Col2a,Row8a)
  250.     Goto Wait_for_Input
  251. Icon24:
  252.     InvertRectangle(Col3,Row8,Col3a,Row8a)
  253.     ClipboardPut("MessageBox(OK,1,QUESTION,",Res)
  254.     WaitInput(300)
  255.     InvertRectangle(Col3,Row8,Col3a,Row8a)
  256.     Goto Wait_for_Input
  257. Icon25:
  258.     InvertRectangle(Col1,Row9,Col1a,Row9a)
  259.     ClipboardPut("MessageBox(OK,1,STOP,",Res)
  260.     WaitInput(300)
  261.     InvertRectangle(Col1,Row9,Col1a,Row9a)
  262.     Goto Wait_for_Input
  263. Icon26:
  264.     InvertRectangle(Col2,Row9,Col2a,Row9a)
  265.     ClipboardPut("MessageBox(OK,1,APP,",Res)
  266.     WaitInput(300)
  267.     InvertRectangle(Col2,Row9,Col2a,Row9a)
  268.     Goto Wait_for_Input
  269. Icon27:
  270.     InvertRectangle(Col3,Row9,Col3a,Row9a)
  271.     ClipboardPut("MessageBox(OK,1,WINLOGO,",Res)
  272.     WaitInput(300)
  273.     InvertRectangle(Col3,Row9,Col3a,Row9a)
  274.     Goto Wait_for_Input
  275.  
  276. Btn01:
  277.     Code$ = "ANNOT,  ENABLED, STD," + Quote$
  278.     Code$ = Code$ + "Annotation"
  279.     Code$ = Code$ + Quote$
  280.     Code$ = Code$ + ", <label>,"
  281.     ClipboardPut(Code$,Res)
  282.     Goto Wait_for_Input
  283. Btn02:
  284.     Code$ = "SQSELECT,  ENABLED, STD,," + Quote$
  285.     Code$ = Code$ + "Square Select"
  286.     Code$ = Code$ + Quote$
  287.     Code$ = Code$ + ", <label>,"
  288.     ClipboardPut(Code$,Res)
  289.     Goto Wait_for_Input
  290. Btn03:
  291.     Code$ = "POLYSELECT,  ENABLED, STD," + Quote$
  292.     Code$ = Code$ + "Polygon Select"
  293.     Code$ = Code$ + Quote$
  294.     Code$ = Code$ + ", <label>,"
  295.     ClipboardPut(Code$,Res)
  296.     Goto Wait_for_Input
  297. Btn04:
  298.     Code$ = "ERASE,  ENABLED, STD," + Quote$
  299.     Code$ = Code$ + "Erase"
  300.     Code$ = Code$ + Quote$
  301.     Code$ = Code$ + ", <label>,"
  302.     ClipboardPut(Code$,Res)
  303.     Goto Wait_for_Input
  304. Btn05:
  305.     Code$ = "OPENIMAGE,  ENABLED, STD," + Quote$
  306.     Code$ = Code$ + "Open Image"
  307.     Code$ = Code$ + Quote$
  308.     Code$ = Code$ + ", <label>,"
  309.     ClipboardPut(Code$,Res)
  310.     Goto Wait_for_Input
  311. Btn06:
  312.     Code$ = "HISTOGRAM,  ENABLED, STD," + Quote$
  313.     Code$ = Code$ + "Show Histogram"
  314.     Code$ = Code$ + Quote$
  315.     Code$ = Code$ + ", <label>,"
  316.     ClipboardPut(Code$,Res)
  317.     Goto Wait_for_Input
  318. Btn07:
  319.     Code$ = "MIRROR,  ENABLED, STD," + Quote$
  320.     Code$ = Code$ + "Mirror Image"
  321.     Code$ = Code$ + Quote$
  322.     Code$ = Code$ + ", <label>,"
  323.     ClipboardPut(Code$,Res)
  324.     Goto Wait_for_Input
  325. Btn08:
  326.     Code$ = "FLIP,  ENABLED, STD," + Quote$
  327.     Code$ = Code$ + "Flip Image"
  328.     Code$ = Code$ + Quote$
  329.     Code$ = Code$ + ", <label>,"
  330.     ClipboardPut(Code$,Res)
  331.     Goto Wait_for_Input
  332. Btn09:
  333.     Code$ = "ROTATE,  ENABLED, STD," + Quote$
  334.     Code$ = Code$ + "Rotate Image"
  335.     Code$ = Code$ + Quote$
  336.     Code$ = Code$ + ", <label>,"
  337.     ClipboardPut(Code$,Res)
  338.     Goto Wait_for_Input
  339. Btn10:
  340.     Code$ = "SHOWRGB,  ENABLED, STD," + Quote$
  341.     Code$ = Code$ + "Show RGB colors"
  342.     Code$ = Code$ + Quote$
  343.     Code$ = Code$ + ", <label>,"
  344.     ClipboardPut(Code$,Res)
  345.     Goto Wait_for_Input
  346. Btn11:
  347.     Code$ = "PICKRGB,  ENABLED, STD," + Quote$
  348.     Code$ = Code$ + "Pick RGB Colors"
  349.     Code$ = Code$ + Quote$
  350.     Code$ = Code$ + ", <label>,"
  351.     ClipboardPut(Code$,Res)
  352.     Goto Wait_for_Input
  353. Btn12:
  354.     Code$ = "CLASSIFY,  ENABLED, STD," + Quote$
  355.     Code$ = Code$ + "Fast Classification"
  356.     Code$ = Code$ + Quote$
  357.     Code$ = Code$ + ", <label>,"
  358.     ClipboardPut(Code$,Res)
  359.     Goto Wait_for_Input
  360. Btn13:
  361.     Code$ = "NORMALIZE,  ENABLED, STD," + Quote$
  362.     Code$ = Code$ + "Normalize Image"
  363.     Code$ = Code$ + Quote$
  364.     Code$ = Code$ + ", <label>,"
  365.     ClipboardPut(Code$,Res)
  366.     Goto Wait_for_Input
  367. Btn14:
  368.     Code$ = "EQUALIZE,  ENABLED, STD," + Quote$
  369.     Code$ = Code$ + "Equalize Image"
  370.     Code$ = Code$ + Quote$
  371.     Code$ = Code$ + ", <label>,"
  372.     ClipboardPut(Code$,Res)
  373.     Goto Wait_for_Input
  374. Btn15:
  375.     Code$ = "NEGATIVE,  ENABLED, STD," + Quote$
  376.     Code$ = Code$ + "Make Negative Image"
  377.     Code$ = Code$ + Quote$
  378.     Code$ = Code$ + ", <label>,"
  379.     ClipboardPut(Code$,Res)
  380.     Goto Wait_for_Input
  381. Btn16:
  382.     Code$ = "GAMMACRCT,  ENABLED, STD," + Quote$
  383.     Code$ = Code$ + "Gamma Correct Image"
  384.     Code$ = Code$ + Quote$
  385.     Code$ = Code$ + ", <label>,"
  386.     ClipboardPut(Code$,Res)
  387.     Goto Wait_for_Input
  388. Btn17:
  389.     Code$ = "IMAGEINFO,  ENABLED, STD," + Quote$
  390.     Code$ = Code$ + "Show Image Information"
  391.     Code$ = Code$ + Quote$
  392.     Code$ = Code$ + ", <label>,"
  393.     ClipboardPut(Code$,Res)
  394.     Goto Wait_for_Input
  395. Btn18:
  396.     Code$ = "FINGER,  ENABLED, STD," + Quote$
  397.     Code$ = Code$ + "Finger"
  398.     Code$ = Code$ + Quote$
  399.     Code$ = Code$ + ", <label>,"
  400.     ClipboardPut(Code$,Res)
  401.     Goto Wait_for_Input
  402. Btn19:
  403.     Code$ = "HAND,  ENABLED, STD," + Quote$
  404.     Code$ = Code$ + "Hand"
  405.     Code$ = Code$ + Quote$
  406.     Code$ = Code$ + ", <label>,"
  407.     ClipboardPut(Code$,Res)
  408.     Goto Wait_for_Input
  409. Btn20:
  410.     Code$ = "FLOOD,  ENABLED, STD," + Quote$
  411.     Code$ = Code$ + "Flood Color"
  412.     Code$ = Code$ + Quote$
  413.     Code$ = Code$ + ", <label>,"
  414.     ClipboardPut(Code$,Res)
  415.     Goto Wait_for_Input
  416. Btn21:
  417.     Code$ = "SPRAY,  ENABLED, STD," + Quote$
  418.     Code$ = Code$ + "Spray Color"
  419.     Code$ = Code$ + Quote$
  420.     Code$ = Code$ + ", <label>,"
  421.     ClipboardPut(Code$,Res)
  422.     Goto Wait_for_Input
  423. Btn22:
  424.     Code$ = "ZOOMUP,  ENABLED, STD," + Quote$
  425.     Code$ = Code$ + "Zoom Up"
  426.     Code$ = Code$ + Quote$
  427.     Code$ = Code$ + ", <label>,"
  428.     ClipboardPut(Code$,Res)
  429.     Goto Wait_for_Input
  430. Btn23:
  431.     Code$ = "ZOOMDN,  ENABLED, STD," + Quote$
  432.     Code$ = Code$ + "Zoom Down"
  433.     Code$ = Code$ + Quote$
  434.     Code$ = Code$ + ", <label>,"
  435.     ClipboardPut(Code$,Res)
  436.     Goto Wait_for_Input
  437. Btn24:
  438.     Code$ = "BRUSH,  ENABLED, STD," + Quote$
  439.     Code$ = Code$ + "Brush"
  440.     Code$ = Code$ + Quote$
  441.     Code$ = Code$ + ", <label>,"
  442.     ClipboardPut(Code$,Res)
  443.     Goto Wait_for_Input
  444.  
  445. Btn25:
  446.     Code$ = "PXL_BACK,  ENABLED, STD," + Quote$
  447.     Code$ = Code$ + "Go Back"
  448.     Code$ = Code$ + Quote$
  449.     Code$ = Code$ + ", <label>,"
  450.     ClipboardPut(Code$,Res)
  451.     Goto Wait_for_Input
  452. Btn26:
  453.     Code$ = "PXL_FORWARD,  ENABLED, STD," + Quote$
  454.     Code$ = Code$ + "Go Forward"
  455.     Code$ = Code$ + Quote$
  456.     Code$ = Code$ + ", <label>,"
  457.     ClipboardPut(Code$,Res)
  458.     Goto Wait_for_Input
  459. Btn27:
  460.     Code$ = "PXL_FAVORITES,  ENABLED, STD," + Quote$
  461.     Code$ = Code$ + "Favourites"
  462.     Code$ = Code$ + Quote$
  463.     Code$ = Code$ + ", <label>,"
  464.     ClipboardPut(Code$,Res)
  465.     Goto Wait_for_Input
  466. Btn28:
  467.     Code$ = "PXL_ADDTOFAVORITES,  ENABLED, STD," + Quote$
  468.     Code$ = Code$ + "Add to Favourites"
  469.     Code$ = Code$ + Quote$
  470.     Code$ = Code$ + ", <label>,"
  471.     ClipboardPut(Code$,Res)
  472.     Goto Wait_for_Input
  473. Btn29:
  474.     Code$ = "PXL_VIEWTREE,  ENABLED, STD," + Quote$
  475.     Code$ = Code$ + "View Tree"
  476.     Code$ = Code$ + Quote$
  477.     Code$ = Code$ + ", <label>,"
  478.     ClipboardPut(Code$,Res)
  479.     Goto Wait_for_Input
  480.  
  481. Btn30:
  482.     Code$ = "PXL_LGICONS,  ENABLED, STD," + Quote$
  483.     Code$ = Code$ + "Show Large Icons"
  484.     Code$ = Code$ + Quote$
  485.     Code$ = Code$ + ", <label>,"
  486.     ClipboardPut(Code$,Res)
  487.     Goto Wait_for_Input
  488. Btn31:
  489.     Code$ = "PXL_SMICONS,  ENABLED, STD," + Quote$
  490.     Code$ = Code$ + "Show Small Icons"
  491.     Code$ = Code$ + Quote$
  492.     Code$ = Code$ + ", <label>,"
  493.     ClipboardPut(Code$,Res)
  494.     Goto Wait_for_Input
  495. Btn32:
  496.     Code$ = "PXL_PARENTFOLDER,  ENABLED, STD," + Quote$
  497.     Code$ = Code$ + "Parent Folder"
  498.     Code$ = Code$ + Quote$
  499.     Code$ = Code$ + ", <label>,"
  500.     ClipboardPut(Code$,Res)
  501.     Goto Wait_for_Input
  502. Btn33:
  503.     Code$ = "PXL_NEWFOLDER,  ENABLED, STD," + Quote$
  504.     Code$ = Code$ + "Make New Folder"
  505.     Code$ = Code$ + Quote$
  506.     Code$ = Code$ + ", <label>,"
  507.     ClipboardPut(Code$,Res)
  508.     Goto Wait_for_Input
  509. Btn34:
  510.     Code$ = "PXL_LIST,  ENABLED, STD," + Quote$
  511.     Code$ = Code$ + "Show a List"
  512.     Code$ = Code$ + Quote$
  513.     Code$ = Code$ + ", <label>,"
  514.     ClipboardPut(Code$,Res)
  515.     Goto Wait_for_Input
  516. Btn35:
  517.     Code$ = "PXL_DETAILS,  ENABLED, STD," + Quote$
  518.     Code$ = Code$ + "Show Details"
  519.     Code$ = Code$ + Quote$
  520.     Code$ = Code$ + ", <label>,"
  521.     ClipboardPut("PXL_DETAILS,  ENABLED, STD,",Res)
  522.     Goto Wait_for_Input
  523. Btn36:
  524.     Code$ = "PXL_SORTBYNM,  ENABLED, STD," + Quote$
  525.     Code$ = Code$ + "Sort by Name"
  526.     Code$ = Code$ + Quote$
  527.     Code$ = Code$ + ", <label>,"
  528.     ClipboardPut(Code$,Res)
  529.     Goto Wait_for_Input
  530. Btn37:
  531.     Code$ = "PXL_SORTBYSZ,  ENABLED, STD," + Quote$
  532.     Code$ = Code$ + "Sort by Size"
  533.     Code$ = Code$ + Quote$
  534.     Code$ = Code$ + ", <label>,"
  535.     ClipboardPut(Code$,Res)
  536.     Goto Wait_for_Input
  537. Btn38:
  538.     Code$ = "PXL_SORTBYDT,  ENABLED, STD," + Quote$
  539.     Code$ = Code$ + "Sort by Date"
  540.     Code$ = Code$ + Quote$
  541.     Code$ = Code$ + ", <label>,"
  542.     ClipboardPut(Code$,Res)
  543.     Goto Wait_for_Input
  544. Btn39:
  545.     Code$ = "PXL_SORTBYTYP,  ENABLED, STD," + Quote$
  546.     Code$ = Code$ + "Sort by Type"
  547.     Code$ = Code$ + Quote$
  548.     Code$ = Code$ + ", <label>,"
  549.     ClipboardPut(Code$,Res)
  550.     Goto Wait_for_Input
  551. Btn40:
  552.     Code$ = "PXL_NETCNCT,  ENABLED, STD," + Quote$
  553.     Code$ = Code$ + "Network Connect"
  554.     Code$ = Code$ + Quote$
  555.     Code$ = Code$ + ", <label>,"
  556.     ClipboardPut(Code$,Res)
  557.     Goto Wait_for_Input
  558. Btn41:
  559.     Code$ = "PXL_NETDSCNCT,  ENABLED, STD," + Quote$
  560.     Code$ = Code$ + "Network Disconnect"
  561.     Code$ = Code$ + Quote$
  562.     Code$ = Code$ + ", <label>,"
  563.     ClipboardPut(Code$,Res)
  564.     Goto Wait_for_Input
  565.  
  566. Btn42:
  567.     Code$ = "PXL_NEW,  ENABLED, STD," + Quote$
  568.     Code$ = Code$ + "New"
  569.     Code$ = Code$ + Quote$
  570.     Code$ = Code$ + ", <label>,"
  571.     ClipboardPut(Code$,Res)
  572.     Goto Wait_for_Input
  573.  
  574. Btn43:
  575.     Code$ = "PXL_OPEN,  ENABLED, STD," + Quote$
  576.     Code$ = Code$ + "Open"
  577.     Code$ = Code$ + Quote$
  578.     Code$ = Code$ + ", <label>,"
  579.     ClipboardPut(Code$,Res)
  580.     Goto Wait_for_Input
  581.  
  582. Btn44:
  583.     Code$ = "PXL_SAVE,  ENABLED, STD," + Quote$
  584.     Code$ = Code$ + "Save File"
  585.     Code$ = Code$ + Quote$
  586.     Code$ = Code$ + ", <label>,"
  587.     ClipboardPut(Code$,Res)
  588.     Goto Wait_for_Input
  589.  
  590. Btn45:
  591.     Code$ = "PXL_CUT,  ENABLED, STD," + Quote$
  592.     Code$ = Code$ + "Edit: Cut"
  593.     Code$ = Code$ + Quote$
  594.     Code$ = Code$ + ", <label>,"
  595.     ClipboardPut(Code$,Res)
  596.     Goto Wait_for_Input
  597.  
  598. Btn46:
  599.     Code$ = "PXL_COPY,  ENABLED, STD," + Quote$
  600.     Code$ = Code$ + "Edit: Copy"
  601.     Code$ = Code$ + Quote$
  602.     Code$ = Code$ + ", <label>,"
  603.     ClipboardPut(Code$,Res)
  604.     Goto Wait_for_Input
  605.  
  606. Btn47:
  607.     Code$ = "PXL_PASTE,  ENABLED, STD," + Quote$
  608.     Code$ = Code$ + "Edit: Paste"
  609.     Code$ = Code$ + Quote$
  610.     Code$ = Code$ + ", <label>,"
  611.     ClipboardPut(Code$,Res)
  612.     Goto Wait_for_Input
  613.  
  614. Btn48:
  615.     Code$ = "PXL_DELETE,  ENABLED, STD," + Quote$
  616.     Code$ = Code$ + "Edit: Delete"
  617.     Code$ = Code$ + Quote$
  618.     Code$ = Code$ + ", <label>,"
  619.     ClipboardPut(Code$,Res)
  620.     Goto Wait_for_Input
  621.  
  622. Btn49:
  623.     Code$ = "PXL_REPLACE,  ENABLED, STD," + Quote$
  624.     Code$ = Code$ + "Edit: Replace"
  625.     Code$ = Code$ + Quote$
  626.     Code$ = Code$ + ", <label>,"
  627.     ClipboardPut(Code$,Res)
  628.     Goto Wait_for_Input
  629.  
  630. Btn50:
  631.     Code$ = "PXL_REDO,  ENABLED, STD," + Quote$
  632.     Code$ = Code$ + "Redo"
  633.     Code$ = Code$ + Quote$
  634.     Code$ = Code$ + ", <label>,"
  635.     ClipboardPut(Code$,Res)
  636.     Goto Wait_for_Input
  637.  
  638. Btn51:
  639.     Code$ = "PXL_UNDO,  ENABLED, STD," + Quote$
  640.     Code$ = Code$ + "Undo"
  641.     Code$ = Code$ + Quote$
  642.     Code$ = Code$ + ", <label>,"
  643.     ClipboardPut(Code$,Res)
  644.     Goto Wait_for_Input
  645.  
  646. Btn52:
  647.     Code$ = "PXL_PRINT,  ENABLED, STD," + Quote$
  648.     Code$ = Code$ + "Print"
  649.     Code$ = Code$ + Quote$
  650.     Code$ = Code$ + ", <label>,"
  651.     ClipboardPut(Code$,Res)
  652.     Goto Wait_for_Input
  653.  
  654. Btn53:
  655.     Code$ = "PXL_FIND,  ENABLED, STD," + Quote$
  656.     Code$ = Code$ + "Find"
  657.     Code$ = Code$ + Quote$
  658.     Code$ = Code$ + ", <label>,"
  659.     ClipboardPut(Code$,Res)
  660.     Goto Wait_for_Input
  661.  
  662. Btn54:
  663.     Code$ = "PXL_PROP,  ENABLED, STD," + Quote$
  664.     Code$ = Code$ + "Properties"
  665.     Code$ = Code$ + Quote$
  666.     Code$ = Code$ + ", <label>,"
  667.     ClipboardPut(Code$,Res)
  668.     Goto Wait_for_Input
  669.  
  670. Btn55:
  671.     Code$ = "PXL_PPREV,  ENABLED, STD," + Quote$
  672.     Code$ = Code$ + "Print Preview"
  673.     Code$ = Code$ + Quote$
  674.     Code$ = Code$ + ", <label>,"
  675.     ClipboardPut(Code$,Res)
  676.     Goto Wait_for_Input
  677.  
  678. Btn56:
  679.     Code$ = "PXL_SHOHLP,  ENABLED, STD," + Quote$
  680.     Code$ = Code$ + "Show Context Help"
  681.     Code$ = Code$ + Quote$
  682.     Code$ = Code$ + ", <label>,"
  683.     ClipboardPut(Code$,Res)
  684.     Goto Wait_for_Input
  685.  
  686.  
  687. Btn57:
  688.     Code$ = "PEN,  ENABLED, STD," + Quote$
  689.     Code$ = Code$ + "Pen"
  690.     Code$ = Code$ + Quote$
  691.     Code$ = Code$ + ", <label>,"
  692.     ClipboardPut(Code$,Res)
  693.     Goto Wait_for_Input
  694.  
  695. Btn58:
  696.     Code$ = "SCTRGRAM,  ENABLED, STD," + Quote$
  697.     Code$ = Code$ + "Scattergram"
  698.     Code$ = Code$ + Quote$
  699.     Code$ = Code$ + ", <label>,"
  700.     ClipboardPut(Code$,Res)
  701.     Goto Wait_for_Input
  702. Btn59:
  703.     Code$ = "DIGITIZE,  ENABLED, STD," + Quote$
  704.     Code$ = Code$ + "Digitize Points"
  705.     Code$ = Code$ + Quote$
  706.     Code$ = Code$ + ", <label>,"
  707.     ClipboardPut(Code$,Res)
  708.     Goto Wait_for_Input
  709.  
  710. Btn60:
  711.     Code$ = "DIALOG,  ENABLED, STD," + Quote$
  712.     Code$ = Code$ + "Show a Dialog Box"
  713.     Code$ = Code$ + Quote$
  714.     Code$ = Code$ + ", <label>,"
  715.     ClipboardPut(Code$,Res)
  716.     Goto Wait_for_Input
  717.  
  718. Btn61:
  719.     Code$ = "RECYCLE,  ENABLED, STD," + Quote$ + "Recycle Bin Operation" + Quote$ + ", <label>,"
  720.     ClipboardPut(Code$,Res)
  721.     Goto Wait_for_Input
  722.  
  723. Btn62:
  724.     Code$ = "CDROM,  ENABLED, STD," + Quote$ + "CD-ROM Operation" + Quote$ + ", <label>,"
  725.     ClipboardPut(Code$,Res)
  726.     Goto Wait_for_Input
  727.  
  728. Btn63:
  729.     Code$ = "SAVEALL,  ENABLED, STD," + Quote$ + "Save All" + Quote$ + ", <label>,"
  730.     ClipboardPut(Code$,Res)
  731.     Goto Wait_for_Input
  732.  
  733.  
  734. Btn64:
  735.     Code$ = "HELPER_1,  ENABLED, STD," + Quote$ + "Helper #1" + Quote$ + ", <label>,"
  736.     ClipboardPut(Code$,Res)
  737.     Goto Wait_for_Input
  738.  
  739. Btn65:
  740.     Code$ = "HELPER_2,  ENABLED, STD," + Quote$ + "Helper #2" + Quote$ + ", <label>,"
  741.     ClipboardPut(Code$,Res)
  742.     Goto Wait_for_Input
  743.  
  744. Btn66:
  745.     Code$ = "HELPER_3,  ENABLED, STD," + Quote$ + "Helper #3" + Quote$ + ", <label>,"
  746.     ClipboardPut(Code$,Res)
  747.     Goto Wait_for_Input
  748.  
  749. Btn67:
  750.     Code$ = "HELPER_4,  ENABLED, STD," + Quote$ + "Helper #4" + Quote$ + ", <label>,"
  751.     ClipboardPut(Code$,Res)
  752.     Goto Wait_for_Input
  753.  
  754. Btn68:
  755.     Code$ = "HELPINFO,  ENABLED, STD," + Quote$ + "Help Information" + Quote$ + ", <label>,"
  756.     ClipboardPut(Code$,Res)
  757.     Goto Wait_for_Input
  758.  
  759. Btn69:
  760.     Code$ = "DIGITIZE,  ENABLED, STD," + Quote$ + "Digitize Points#1" + Quote$ + ", <label>,"
  761.     ClipboardPut(Code$,Res)
  762.     Goto Wait_for_Input
  763.  
  764. Btn70:
  765.     Code$ = "POINTS,  ENABLED, STD," + Quote$ + "Digitize Points#2" + Quote$ + ", <label>,"
  766.     ClipboardPut(Code$,Res)
  767.     Goto Wait_for_Input
  768.  
  769. Btn71:
  770.     Code$ = "LINES,  ENABLED, STD," + Quote$ + "Digitize Lines"   + Quote$ + ", <label>,"
  771.     ClipboardPut(Code$,Res)
  772.     Goto Wait_for_Input
  773.  
  774. Btn72:
  775.     Code$ = "POLYGONS,  ENABLED, STD," + Quote$ + "Digitize Polygons" + Quote$ + ", <label>,"
  776.     ClipboardPut(Code$,Res)
  777.     Goto Wait_for_Input
  778.  
  779. Btn73:
  780.     Code$ = "LABELS,  ENABLED, STD," + Quote$ + "Digitize Labels" + Quote$ + ", <label>,"
  781.     ClipboardPut(Code$,Res)
  782.     Goto Wait_for_Input
  783.  
  784. Btn74:
  785.     Code$ = "NDVI, ENABLED, STD, " + Quote$ + "Create NDVI Image" + Quote$ + ", <label>,"
  786.     ClipboardPut(Code$,Res)
  787.     Goto Wait_for_Input
  788.  
  789. Btn75:
  790.     Code$ = "AVGIMGSET, ENABLED, STD, " + Quote$ + "Average Image Set" + Quote$ + ", <label>,"
  791.     ClipboardPut(Code$,Res)
  792.     Goto Wait_for_Input
  793.  
  794. Btn76:
  795.     Code$ = "SIGNATURE, ENABLED, STD, " + Quote$ + "Create Spectral Signature" + Quote$ + ", <label>,"
  796.     ClipboardPut(Code$,Res)
  797.     Goto Wait_for_Input
  798.  
  799. Btn77:
  800.     Code$ = "TRGAREAS, ENABLED, STD, " + Quote$ + "Extract Training Areas" + Quote$ + ", <label>,"
  801.     ClipboardPut(Code$,Res)
  802.     Goto Wait_for_Input
  803.  
  804. Btn78:
  805.     Code$ = "MLHCLASS, ENABLED, STD, " + Quote$ + "Maximum Likelihood Classifier" + Quote$ + ", <label>,"
  806.     ClipboardPut(Code$,Res)
  807.     Goto Wait_for_Input
  808.  
  809. Btn79:
  810.     Code$ = "PPDCLASS, ENABLED, STD, " + Quote$ + "Paralleliped Classifier"  + Quote$ + ", <label>,"
  811.     ClipboardPut(Code$,Res)
  812.     Goto Wait_for_Input
  813.  
  814. Btn80:
  815.     Code$ = "PCAENHANCE, ENABLED, STD, " + Quote$ + "Principal Components" + Quote$ + ", <label>,"
  816.     ClipboardPut(Code$,Res)
  817.     Goto Wait_for_Input
  818.  
  819. Btn81:
  820.     Code$ = "MARTAYMAP, ENABLED, STD, " + Quote$ + "Martin-Tayor Mapping"  + Quote$ + ", <label>,"
  821.     ClipboardPut(Code$,Res)
  822.     Goto Wait_for_Input
  823.  
  824. Btn82:
  825.     Code$ = "DECORREL, ENABLED, STD, " + Quote$ + "Decorrelation Stretch"  + Quote$ + ", <label>,"
  826.     ClipboardPut(Code$,Res)
  827.     Goto Wait_for_Input
  828.  
  829. Btn83:
  830.     Code$ = "GLOBE, ENABLED, STD, " + Quote$ + "Globe"  + Quote$ + ", <label>,"
  831.     ClipboardPut(Code$,Res)
  832.     Goto Wait_for_Input
  833.  
  834. Btn84:
  835.     Code$ = "GEOTAG, ENABLED, STD, " + Quote$ + "geoTag" + Quote$ + ", <label>,"
  836.     ClipboardPut(Code$,Res)
  837.     Goto Wait_for_Input
  838.  
  839. Btn85:
  840.     Code$ = "SHARPEN, ENABLED, STD, " + Quote$ + "Sharpen Image"  + Quote$ + ", <label>,"
  841.     ClipboardPut(Code$,Res)
  842.     Goto Wait_for_Input
  843.  
  844. Btn86:
  845.     Code$ = "BROVEY, ENABLED, STD, " + Quote$ + "Brovey Transform Enhancment" + Quote$ + ", <label>,"
  846.     ClipboardPut(Code$,Res)
  847.     Goto Wait_for_Input
  848.  
  849. Btn87:
  850.     Code$ = "SELECTSOURCE, ENABLED, STD, " + Quote$ + "Select TWAIN Source" + Quote$ + ", <label>,"
  851.     ClipboardPut(Code$,Res)
  852.     Goto Wait_for_Input
  853.  
  854. Btn88:
  855.     Code$ = "CAMERA, ENABLED, STD, " + Quote$ + "Digital Camera Operation" + Quote$ + ", <label>,"
  856.     ClipboardPut(Code$,Res)
  857.     Goto Wait_for_Input
  858.  
  859. Btn89:
  860.     Code$ = "SCANNER_1, ENABLED, STD, " + Quote$ + "Scanner #1 Operation" + Quote$ + ", <label>,"
  861.     ClipboardPut(Code$,Res)
  862.     Goto Wait_for_Input
  863.  
  864. Btn90:
  865.     Code$ = "SCANNER_2, ENABLED, STD, " + Quote$ + "Scanner #2 Operation" + Quote$ + ", <label>,"
  866.     ClipboardPut(Code$,Res)
  867.     Goto Wait_for_Input
  868.  
  869. Btn91:
  870.     Code$ = "SCANNER_3, ENABLED, STD, " + Quote$ + "Scanner #3 Operation" + Quote$ + ", <label>,"
  871.     ClipboardPut(Code$,Res)
  872.     Goto Wait_for_Input
  873.  
  874. Btn92:
  875.     Code$ = "ERASE_2, ENABLED, STD, " + Quote$ + "Erase #2 operation" + Quote$ + ", <label>,"
  876.     ClipboardPut(Code$,Res)
  877.     Goto Wait_for_Input
  878.  
  879. Show_Icons:  {subroutine}
  880.     DrawIcon(Col1,Row1,IconSize,IconSize,ICON01)
  881.     DrawIcon(Col2,Row1,IconSize,IconSize,ICON02)
  882.     DrawIcon(Col3,Row1,IconSize,IconSize,ICON03)
  883.  
  884.     DrawIcon(Col1,Row2,IconSize,IconSize,ICON04)
  885.     DrawIcon(Col2,Row2,IconSize,IconSize,ICON05)
  886.     DrawIcon(Col3,Row2,IconSize,IconSize,ICON06)
  887.  
  888.     DrawIcon(Col1,Row3,IconSize,IconSize,ICON07)
  889.     DrawIcon(Col2,Row3,IconSize,IconSize,ICON08)
  890.     DrawIcon(Col3,Row3,IconSize,IconSize,ICON09)
  891.  
  892.     DrawIcon(Col1,Row4,IconSize,IconSize,ICON10)
  893.     DrawIcon(Col2,Row4,IconSize,IconSize,ICON11)
  894.     DrawIcon(Col3,Row4,IconSize,IconSize,ICON12)
  895.  
  896.     DrawIcon(Col1,Row5,IconSize,IconSize,ICON13)
  897.     DrawIcon(Col2,Row5,IconSize,IconSize,ICON14)
  898.     DrawIcon(Col3,Row5,IconSize,IconSize,ICON15)
  899.  
  900.     DrawIcon(Col1,Row6,IconSize,IconSize,ICON16)
  901.     DrawIcon(Col2,Row6,IconSize,IconSize,ICON17)
  902.     DrawIcon(Col3,Row6,IconSize,IconSize,ICON18) 
  903.  
  904.     DrawIcon(Col1,Row7,IconSize,IconSize,ICON19) 
  905.     DrawIcon(Col2,Row7,IconSize,IconSize,PXLHISTOGRAM)
  906.     DrawIcon(Col3,Row7,IconSize,IconSize,PXLTOOLBAR) 
  907.     
  908.     DrawIcon(Col1,Row8,IconSize,IconSize,INFORMATION)
  909.     DrawIcon(Col2,Row8,IconSize,IconSize,EXCLAMATION)
  910.     DrawIcon(Col3,Row8,IconSize,IconSize,QUESTION)
  911.  
  912.     DrawIcon(Col1,Row9,IconSize,IconSize,STOP)
  913.     DrawIcon(Col2,Row9,IconSize,IconSize,APP)
  914.     DrawIcon(Col3,Row9,IconSize,IconSize,WINLOGO)
  915.  
  916.     UsePen(SOLID,1,0,0,0)
  917.     UseBrush(NULL,0,0,0)
  918.     DrawRectangle(3,3,Bdr,Bdr3)
  919.     J1 = InitJ
  920.     For i = 1 To 8
  921.         DrawLine(3,J1,Bdr,J1)
  922.         J1 += IncrJ
  923.     Next
  924.     DrawLine(Bdr1,3,Bdr1 ,Bdr3)
  925.     DrawLine(Bdr2,3,Bdr2,Bdr3)
  926.  
  927.     SetMouse(Col1,Row1,Col2,Row2,Icon01,n,n,    Col2,Row1,Col3,Row2,Icon02,n,n,        Col3,Row1,Col4,Row2,Icon03,n,n,
  928.          Col1,Row2,Col2,Row3,Icon04,n,n,        Col2,Row2,Col3,Row3,Icon05,n,n,        Col3,Row2,Col4,Row3,Icon06,n,n,
  929.          Col1,Row3,Col2,Row4,Icon07,n,n,        Col2,Row3,Col3,Row4,Icon08,n,n,        Col3,Row3,Col4,Row4,Icon09,n,n,
  930.          Col1,Row4,Col2,Row5,Icon10,n,n,        Col2,Row4,Col3,Row5,Icon11,n,n,        Col3,Row4,Col4,Row5,Icon12,n,n,
  931.          Col1,Row5,Col2,Row6,Icon13,n,n,        Col2,Row5,Col3,Row6,Icon14,n,n,      Col3,Row5,Col4,Row6,Icon15,n,n,
  932.          Col1,Row6,Col2,Row7,Icon16,n,n,        Col2,Row6,Col3,Row7,Icon17,n,n,      Col3,Row6,Col4,Row7,Icon18,n,n,
  933.          Col1,Row7,Col2,Row8,Icon19,n,n,        Col2,Row7,Col3,Row8,Icon20,n,n,      Col3,Row7,Col4,Row8,Icon21,n,n,
  934.  
  935.          Col1,Row8,Col2,Row9,Icon22,n,n,       Col2,Row8,Col3,Row9,Icon23,n,n,      Col3,Row8,Col4,Row9 ,Icon24,n,n,
  936.          Col1,Row9,Col2,Row10,Icon25,n,n,     Col2,Row9,Col3,Row10,Icon26,n,n,      Col3,Row9,Col4,Row10 ,Icon27,n,n,
  937.         
  938.          Bdr0,5,Bdr4,Bdr3,SelectAcolor,n,n,
  939.                     Bdr5,5,Bdr6,Bdr3,SelectAfont,n,n)
  940.             
  941.     WinGetClientRect("",cx1,cy1,cx2,cy2)
  942.     SetRightMouse(cx1,cy1,cx2,cy2,WhatsThis,n,n)
  943.     UseFont("Arial",9,19,BOLD,NOITALIC,NOUNDERLINE,0,0,255)
  944.  
  945.     SetFontEscapement(-900)
  946.     UseFont("Arial",9,19,BOLD,NOITALIC,NOUNDERLINE,0,0,255)
  947.     If Hres > 640 
  948.         DrawRectangle(1,5,126,319)
  949.         DrawShadeRectangle(116,6,119,319, 255,0,0, 0,0,0,TOPBOTTOM)
  950.         DrawShadeRectangle(119,6,122,319, 0,255,0, 0,0,0,TOPBOTTOM)
  951.         DrawShadeRectangle(122,6,125,319, 0,0,255, 0,0,0,TOPBOTTOM)
  952.         DrawRectangle(130,5,151,319)
  953.         DrawText(150,7,"S e l e c t    F o n t")
  954.     Else
  955.         DrawRectangle( 70, 5,94,174)
  956.         DrawShadeRectangle(70,6,77,174, 255,0,0, 0,0,0,TOPBOTTOM)
  957.         DrawShadeRectangle(78,6,85,174, 0,255,0, 0,0,0,TOPBOTTOM)
  958.         DrawShadeRectangle(86,6,93,174, 0,0,255, 0,0,0,TOPBOTTOM)
  959.         DrawRectangle( 100, 5,121,174)
  960.         DrawText(119,7,"S e l e c t    F o n t")
  961.     Endif
  962.                SetFontEscapement(0)
  963.  
  964.     Return
  965.  
  966.  
  967. Remove_Tool_Windows:
  968.     ToolWindow()
  969.     Goto Wait_for_Input
  970.  
  971. Make_Tool_Windows:
  972.     If geoPiXCLFlag = 0          
  973.         ToolWindow(px1,py1,px2,py2,POPUP,"PiXCL 5.1", 
  974.         RAISED,     
  975.         PXL_LARGE,      
  976.         ANNOT,  ENABLED, STD, "Annotation", Btn01,    
  977.         SQSELECT,  ENABLED, STD, "Select", Btn02,
  978.         POLYSELECT,  ENABLED, STD, "PolySelect",Btn03,
  979.         ERASE,  ENABLED, STD, "Erase#1",Btn04,
  980.         OPENIMAGE,  ENABLED, STD, "Open Image",Btn05,
  981.         HISTOGRAM,  ENABLED, STD, "Histogram", Btn06,
  982.         MIRROR,  ENABLED, STD, "Image Mirror", Btn07,
  983.         FLIP,  ENABLED, STD, "Image Flip", Btn08,
  984.         ROTATE,  ENABLED, STD, "Image Rotate",Btn09,
  985.         SHOWRGB,  ENABLED, STD, "Show RGB", Btn10,
  986.         PICKRGB,  ENABLED, STD, "Pick RGB",Btn11,
  987.         CLASSIFY,  ENABLED, STD, "Fast Classify", Btn12,
  988.         NORMALIZE,ENABLED,STD, "Normalize Image",Btn13,
  989.         EQUALIZE,  ENABLED,  STD, "Equalize Image", Btn14,
  990.         NEGATIVE,  ENABLED, STD, "Negative Image", Btn15,
  991.         GAMMACRCT,  ENABLED, STD, "Gamma Correct", Btn16,
  992.         IMAGEINFO,  ENABLED, STD, "ImageInfo", Btn17,
  993.         FINGER,  ENABLED, STD, "Finger",Btn18,
  994.         HAND,  ENABLED, STD, "Hand", Btn19,
  995.         FLOOD,  ENABLED, STD, "Flood", Btn20,
  996.         SPRAY,  ENABLED, STD, "Spray", Btn21,
  997.         ZOOMUP,  ENABLED, STD, "Positive Zoom", Btn22,
  998.         ZOOMDN,  ENABLED, STD, "Negative Zoom", Btn23,
  999.         BRUSH,  ENABLED, STD, "Brush",Btn24,
  1000.         PEN, ENABLED, STD, "Pen",Btn57,
  1001.         SCTRGRAM, ENABLED, STD, "Scattergram",Btn58,
  1002.         DIGITIZE, ENABLED, STD, "Digitize Points",Btn59,
  1003.         DIALOG, ENABLED, STD, "Show a Dialog Box", Btn60,
  1004.         RECYCLE, ENABLED, STD, "Recycle Bin Operation", Btn61,
  1005.         CDROM, ENABLED, STD, "CD-ROM Operation", Btn62,
  1006.         SAVEALL, ENABLED, STD, "Save All", Btn63,
  1007.         HELPINFO, ENABLED, STD, "Help Information", Btn68,
  1008.         HELPER_1, ENABLED, STD, "Helper #1", Btn64,
  1009.         HELPER_2, ENABLED, STD, "Helper #2", Btn65,
  1010.         HELPER_3, ENABLED, STD, "Helper #3", Btn66,
  1011.         HELPER_4, ENABLED, STD, "Helper #4", Btn67,
  1012.         
  1013.         SELECTSOURCE, ENABLED,STD,"Select TWAIN Source", Btn87,
  1014.         CAMERA, ENABLED, STD,"Digital Camera Operation", Btn88,
  1015.         SCANNER_1, ENABLED, STD,"Scanner#1 Image", Btn88,
  1016.         SCANNER_2, ENABLED, STD,"Scanner#2 Image", Btn90,
  1017.         SCANNER_3, ENABLED, STD,"Scanner#3 Image", Btn91,
  1018.         ERASE_2, ENABLED, STD,"Erase#2 Operation", Btn92,
  1019.  
  1020.         hx1,hy1,hx2,hy2,POPUP,"History",
  1021.         RAISED,
  1022.         PXL_LARGE,
  1023.         PXL_BACK,  ENABLED, STD, "Back", Btn25,
  1024.         PXL_FORWARD,  ENABLED, STD, "Forward", Btn26,
  1025.         PXL_FAVORITES,  ENABLED, STD, "Favorites",Btn27,
  1026.         PXL_ADDTOFAVORITES,  ENABLED, STD, "Add to Favorites",Btn28,
  1027.         PXL_VIEWTREE,  ENABLED, STD, "View Tree", Btn29,
  1028.  
  1029.  
  1030.         vx1,vy1,vx2,vy2,POPUP,"View",
  1031.         RAISED,
  1032.         PXL_LARGE,
  1033.         PXL_LGICONS,  ENABLED, STD, "View Large Icons",  Btn30,
  1034.         PXL_SMICONS,  ENABLED, STD, "View Small Icons",  Btn31,
  1035.         PXL_PARENTFOLDER,  ENABLED, STD, "Parent Folder",  Btn32,
  1036.         PXL_NEWFOLDER,  ENABLED, STD, "New Folder",  Btn33,
  1037.         PXL_LIST,  ENABLED, STD, "View List",  Btn34,
  1038.         PXL_DETAILS,  ENABLED, STD, "View Details",  Btn35,
  1039.         PXL_SORTBYNM,  ENABLED, STD, "Sort by Name", Btn36,
  1040.         PXL_SORTBYSZ,  ENABLED, STD, "Sort by Size", Btn37,
  1041.         PXL_SORTBYDT,  ENABLED, STD, "Sort by Date",  Btn38,
  1042.         PXL_SORTBYTYP,  ENABLED, STD, "Sort by Type", Btn39,
  1043.         PXL_NETCNCT,  ENABLED, STD, "Network Connect",Btn40,
  1044.         PXL_NETDSCNCT,  ENABLED, STD, "Network DisConnect", Btn41,
  1045.  
  1046.  
  1047.         sx1,sy1,sx2,sy2,POPUP,"Standard",
  1048.         RAISED,
  1049.         PXL_LARGE,
  1050.         PXL_NEW, ENABLED, STD, "New", Btn42,
  1051.         PXL_OPEN, ENABLED, STD, "Open", Btn43,
  1052.         PXL_SAVE, ENABLED, STD, "FileSave", Btn44,
  1053.         PXL_CUT,  ENABLED, STD, "Edit: Cut",  Btn45,
  1054.         PXL_COPY ,  ENABLED, STD, "Edit: Copy", Btn46,
  1055.         PXL_PASTE,  ENABLED, STD, "Edit: Paste", Btn47,
  1056.         PXL_DELETE,  ENABLED,STD, "Edit: Delete", Btn48,
  1057.         PXL_REPLACE, ENABLED,STD, "Edit: Replace", Btn49,
  1058.         PXL_REDO,  ENABLED, STD, "Redo",  Btn50, 
  1059.         PXL_UNDO,  ENABLED, STD, "Undo",  Btn51, 
  1060.         PXL_PRINT,  ENABLED, STD, "Print",  Btn52,
  1061.         PXL_FIND,  ENABLED, STD, "Find",  Btn53,
  1062.         PXL_PROP, ENABLED, STD,"Properties", Btn54,
  1063.         PXL_PPREV,  ENABLED, STD, "Print Preview",  Btn55, 
  1064.         PXL_SHOHLP,  ENABLED, STD, "Show Context Help",  Btn56)
  1065.     Else
  1066.         {we have geoPiXCL, add the extra bitmap buttons}
  1067.         py2 += 120
  1068.         ToolWindow(px1,py1,px2,py2,POPUP,"geoPiXCL 5.1", 
  1069.         RAISED, 
  1070.         PXL_LARGE,      
  1071.         ANNOT,  ENABLED, STD, "Annotation", Btn01,    
  1072.         SQSELECT,  ENABLED, STD, "Select", Btn02,
  1073.         POLYSELECT,  ENABLED, STD, "PolySelect",Btn03,
  1074.         ERASE,  ENABLED, STD, "Erase",Btn04,
  1075.         OPENIMAGE,  ENABLED, STD, "Open Image",Btn05,
  1076.         HISTOGRAM,  ENABLED, STD, "Histogram", Btn06,
  1077.         MIRROR,  ENABLED, STD, "Image Mirror", Btn07,
  1078.         FLIP,  ENABLED, STD, "Image Flip", Btn08,
  1079.         ROTATE,  ENABLED, STD, "Image Rotate",Btn09,
  1080.         SHOWRGB,  ENABLED, STD, "Show RGB", Btn10,
  1081.         PICKRGB,  ENABLED, STD, "Pick RGB",Btn11,
  1082.         CLASSIFY,  ENABLED, STD, "Fast Classify", Btn12,
  1083.         NORMALIZE,ENABLED,STD, "Normalize Image",Btn13,
  1084.         EQUALIZE,  ENABLED,  STD, "Equalize Image", Btn14,
  1085.         NEGATIVE,  ENABLED, STD, "Negative Image", Btn15,
  1086.         GAMMACRCT,  ENABLED, STD, "Gamma Correct", Btn16,
  1087.         IMAGEINFO,  ENABLED, STD, "ImageInfo", Btn17,
  1088.         FINGER,  ENABLED, STD, "Finger",Btn18,
  1089.         HAND,  ENABLED, STD, "Hand", Btn19,
  1090.         FLOOD,  ENABLED, STD, "Flood", Btn20,
  1091.         SPRAY,  ENABLED, STD, "Spray", Btn21,
  1092.         ZOOMUP,  ENABLED, STD, "Positive Zoom", Btn22,
  1093.         ZOOMDN,  ENABLED, STD, "Negative Zoom", Btn23,
  1094.         BRUSH,  ENABLED, STD, "Brush",Btn24,
  1095.         PEN, ENABLED, STD, "Pen",Btn57,
  1096.         SCTRGRAM, ENABLED, STD, "Scattergram",Btn58,
  1097.         DIGITIZE, ENABLED, STD, "Digitize Points",Btn59,
  1098.         DIALOG, ENABLED, STD, "Show a Dialog Box", Btn60,
  1099.         RECYCLE, ENABLED, STD, "Recycle Bin Operation", Btn61,
  1100.         CDROM, ENABLED, STD, "CD-ROM Operation", Btn62,
  1101.         SAVEALL, ENABLED, STD, "Save All", Btn63,
  1102.         HELPINFO, ENABLED, STD, "Help Information", Btn68,
  1103.         HELPER_1, ENABLED, STD, "Helper #1", Btn64,
  1104.         HELPER_2, ENABLED, STD, "Helper #2", Btn65,
  1105.         HELPER_3, ENABLED, STD, "Helper #3", Btn66,
  1106.         HELPER_4, ENABLED, STD, "Helper #4", Btn67,
  1107.  
  1108.         SELECTSOURCE, ENABLED,STD,"Select TWAIN Source", Btn87,
  1109.         CAMERA, ENABLED, STD,"Digital Camera Operation", Btn88,
  1110.         SCANNER_1, ENABLED, STD,"Scanner#1 Image", Btn88,
  1111.         SCANNER_2, ENABLED, STD,"Scanner#2 Image", Btn90,
  1112.         SCANNER_3, ENABLED, STD,"Scanner#3 Image", Btn91,
  1113.         ERASE_2, ENABLED, STD,"Erase#2 Operation", Btn92,
  1114.  
  1115.         {geoPiXCL specific buttons follow}
  1116.         DIGITIZE,  ENABLED, STD,"Digitize Points#1", Btn69,
  1117.         POINTS,  ENABLED, STD,"Digitize Points#2",Btn70,
  1118.         LINES,  ENABLED, STD,"Digitize Lines",Btn71,
  1119.         POLYGONS,  ENABLED, STD,"Digitize Polygons",Btn72,
  1120.         LABELS,  ENABLED, STD,"Digitize Labels",Btn73,
  1121.         NDVI, ENABLED, STD, "Create NDVI Image",Btn74,
  1122.         AVGIMGSET, ENABLED, STD, "Average Image Set",Btn75,
  1123.         SIGNATURE, ENABLED, STD, "Create Spectral Signature",Btn76,
  1124.         TRGAREAS, ENABLED, STD, "Extract Training Areas",Btn77,
  1125.         MLHCLASS, ENABLED, STD, "Maximum Likelihood Classifier",Btn78,
  1126.         PPDCLASS, ENABLED, STD, "Paralleliped Classifier",Btn79,
  1127.         PCAENHANCE, ENABLED, STD, "Principal Components",Btn80,
  1128.         MARTAYMAP    , ENABLED, STD, "Martin-Tayor Mapping",Btn81,
  1129.         DECORREL, ENABLED, STD, "Decorrelation Stretch",Btn82,
  1130.         GLOBE, ENABLED, STD, "Globe",Btn83,
  1131.         GEOTAG, ENABLED, STD, "geoTag",Btn84,
  1132.         SHARPEN, ENABLED, STD, "Sharpen Image",Btn85,
  1133.         BROVEY, ENABLED, STD, "Brovey Transform Enhancment",Btn86,
  1134.  
  1135.  
  1136.         hx1,hy1,hx2,hy2,POPUP,"History",
  1137.         RAISED,
  1138.         PXL_LARGE,
  1139.         PXL_BACK,  ENABLED, STD, "Back", Btn25,
  1140.         PXL_FORWARD,  ENABLED, STD, "Forward", Btn26,
  1141.         PXL_FAVORITES,  ENABLED, STD, "Favorites",Btn27,
  1142.         PXL_ADDTOFAVORITES,  ENABLED, STD, "Add to Favorites",Btn28,
  1143.         PXL_VIEWTREE,  ENABLED, STD, "View Tree", Btn29,
  1144.  
  1145.  
  1146.         vx1,vy1,vx2,vy2,POPUP,"View",
  1147.         RAISED,
  1148.         PXL_LARGE,
  1149.         PXL_LGICONS,  ENABLED, STD, "View Large Icons",  Btn30,
  1150.         PXL_SMICONS,  ENABLED, STD, "View Small Icons",  Btn31,
  1151.         PXL_PARENTFOLDER,  ENABLED, STD, "Parent Folder",  Btn32,
  1152.         PXL_NEWFOLDER,  ENABLED, STD, "New Folder",  Btn33,
  1153.         PXL_LIST,  ENABLED, STD, "View List",  Btn34,
  1154.         PXL_DETAILS,  ENABLED, STD, "View Details",  Btn35,
  1155.         PXL_SORTBYNM,  ENABLED, STD, "Sort by Name", Btn36,
  1156.         PXL_SORTBYSZ,  ENABLED, STD, "Sort by Size", Btn37,
  1157.         PXL_SORTBYDT,  ENABLED, STD, "Sort by Date",  Btn38,
  1158.         PXL_SORTBYTYP,  ENABLED, STD, "Sort by Type", Btn39,
  1159.         PXL_NETCNCT,  ENABLED, STD, "Network Connect",Btn40,
  1160.         PXL_NETDSCNCT,  ENABLED, STD, "Network DisConnect", Btn41,
  1161.  
  1162.  
  1163.         sx1,sy1,sx2,sy2,POPUP,"Standard",
  1164.         RAISED,
  1165.         PXL_LARGE,
  1166.         PXL_NEW, ENABLED, STD, "New", Btn42,
  1167.         PXL_OPEN, ENABLED, STD, "Open", Btn43,
  1168.         PXL_SAVE, ENABLED, STD, "FileSave", Btn44,
  1169.         PXL_CUT,  ENABLED, STD, "Edit: Cut",  Btn45,
  1170.         PXL_COPY ,  ENABLED, STD, "Edit: Copy", Btn46,
  1171.         PXL_PASTE,  ENABLED, STD, "Edit: Paste", Btn47,
  1172.         PXL_DELETE,  ENABLED,STD, "Edit: Delete", Btn48,
  1173.         PXL_REPLACE, ENABLED,STD, "Edit: Replace", Btn49,
  1174.         PXL_REDO,  ENABLED, STD, "Redo",  Btn50, 
  1175.         PXL_UNDO,  ENABLED, STD, "Undo",  Btn51, 
  1176.         PXL_PRINT,  ENABLED, STD, "Print",  Btn52,
  1177.         PXL_FIND,  ENABLED, STD, "Find",  Btn53,
  1178.         PXL_PROP, ENABLED, STD,"Properties", Btn54,
  1179.         PXL_PPREV,  ENABLED, STD, "Print Preview",  Btn55, 
  1180.         PXL_SHOHLP,  ENABLED, STD, "Show Context Help",  Btn56)
  1181.     Endif
  1182.         Chr(34,Quote$)
  1183.     Return
  1184.  
  1185. Make_Tool_Windows640:
  1186.     If geoPiXCLFlag = 0          
  1187.         ToolWindow(px1,py1,px2,py2,POPUP,"PiXCL 5.1", 
  1188.         RAISED,     
  1189.         PXL_SMALL,      
  1190.         ANNOT,  ENABLED, STD, "Annotation", Btn01,    
  1191.         SQSELECT,  ENABLED, STD, "Select", Btn02,
  1192.         POLYSELECT,  ENABLED, STD, "PolySelect",Btn03,
  1193.         ERASE,  ENABLED, STD, "Erase",Btn04,
  1194.         OPENIMAGE,  ENABLED, STD, "Open Image",Btn05,
  1195.         HISTOGRAM,  ENABLED, STD, "Histogram", Btn06,
  1196.         MIRROR,  ENABLED, STD, "Image Mirror", Btn07,
  1197.         FLIP,  ENABLED, STD, "Image Flip", Btn08,
  1198.         ROTATE,  ENABLED, STD, "Image Rotate",Btn09,
  1199.         SHOWRGB,  ENABLED, STD, "Show RGB", Btn10,
  1200.         PICKRGB,  ENABLED, STD, "Pick RGB",Btn11,
  1201.         CLASSIFY,  ENABLED, STD, "Fast Classify", Btn12,
  1202.         NORMALIZE,ENABLED,STD, "Normalize Image",Btn13,
  1203.         EQUALIZE,  ENABLED,  STD, "Equalize Image", Btn14,
  1204.         NEGATIVE,  ENABLED, STD, "Negative Image", Btn15,
  1205.         GAMMACRCT,  ENABLED, STD, "Gamma Correct", Btn16,
  1206.         IMAGEINFO,  ENABLED, STD, "ImageInfo", Btn17,
  1207.         FINGER,  ENABLED, STD, "Finger",Btn18,
  1208.         HAND,  ENABLED, STD, "Hand", Btn19,
  1209.         FLOOD,  ENABLED, STD, "Flood", Btn20,
  1210.         SPRAY,  ENABLED, STD, "Spray", Btn21,
  1211.         ZOOMUP,  ENABLED, STD, "Positive Zoom", Btn22,
  1212.         ZOOMDN,  ENABLED, STD, "Negative Zoom", Btn23,
  1213.         BRUSH,  ENABLED, STD, "Brush",Btn24,
  1214.         PEN, ENABLED, STD, "Pen",Btn57,
  1215.         SCTRGRAM, ENABLED, STD, "Scattergram",Btn58,
  1216.         DIGITIZE, ENABLED, STD, "Digitize Points",Btn59,
  1217.         DIALOG, ENABLED, STD, "Show a Dialog Box", Btn60,
  1218.         RECYCLE, ENABLED, STD, "Recycle Bin Operation", Btn61,
  1219.         CDROM, ENABLED, STD, "CD-ROM Operation", Btn62,
  1220.         SAVEALL, ENABLED, STD, "Save All", Btn63,
  1221.         HELPINFO, ENABLED, STD, "Help Information", Btn68,
  1222.         HELPER_1, ENABLED, STD, "Helper #1", Btn64,
  1223.         HELPER_2, ENABLED, STD, "Helper #2", Btn65,
  1224.         HELPER_3, ENABLED, STD, "Helper #3", Btn66,
  1225.         HELPER_4, ENABLED, STD, "Helper #4", Btn67,
  1226.  
  1227.         SELECTSOURCE, ENABLED,STD,"Select TWAIN Source", Btn87,
  1228.         CAMERA, ENABLED, STD,"Digital Camera", Btn87,
  1229.         SCANNER_1, ENABLED, STD,"Scanner#1 Image", Btn88,
  1230.         SCANNER_2, ENABLED, STD,"Scanner#2 Image", Btn89,
  1231.         SCANNER_3, ENABLED, STD,"Scanner#2 Image", Btn90,
  1232.         ERASE_2, ENABLED, STD,"Erase#2 Operation", Btn91,
  1233.  
  1234.         hx1,hy1,hx2,hy2,POPUP,"History",
  1235.         RAISED,
  1236.         PXL_SMALL,
  1237.         PXL_BACK,  ENABLED, STD, "Back", Btn25,
  1238.         PXL_FORWARD,  ENABLED, STD, "Forward", Btn26,
  1239.         PXL_FAVORITES,  ENABLED, STD, "Favorites",Btn27,
  1240.         PXL_ADDTOFAVORITES,  ENABLED, STD, "Add to Favorites",Btn28,
  1241.         PXL_VIEWTREE,  ENABLED, STD, "View Tree", Btn29,
  1242.  
  1243.  
  1244.         vx1,vy1,vx2,vy2,POPUP,"View",
  1245.         RAISED,
  1246.         PXL_SMALL,
  1247.         PXL_LGICONS,  ENABLED, STD, "View Large Icons",  Btn30,
  1248.         PXL_SMICONS,  ENABLED, STD, "View Small Icons",  Btn31,
  1249.         PXL_PARENTFOLDER,  ENABLED, STD, "Parent Folder",  Btn32,
  1250.         PXL_NEWFOLDER,  ENABLED, STD, "New Folder",  Btn33,
  1251.         PXL_LIST,  ENABLED, STD, "View List",  Btn34,
  1252.         PXL_DETAILS,  ENABLED, STD, "View Details",  Btn35,
  1253.         PXL_SORTBYNM,  ENABLED, STD, "Sort by Name", Btn36,
  1254.         PXL_SORTBYSZ,  ENABLED, STD, "Sort by Size", Btn37,
  1255.         PXL_SORTBYDT,  ENABLED, STD, "Sort by Date",  Btn38,
  1256.         PXL_SORTBYTYP,  ENABLED, STD, "Sort by Type", Btn39,
  1257.         PXL_NETCNCT,  ENABLED, STD, "Network Connect",Btn40,
  1258.         PXL_NETDSCNCT,  ENABLED, STD, "Network DisConnect", Btn41,
  1259.  
  1260.         sx1,sy1,sx2,sy2,POPUP,"Standard",
  1261.         RAISED,
  1262.         PXL_SMALL,
  1263.         PXL_NEW, ENABLED, STD, "New", Btn42,
  1264.         PXL_OPEN, ENABLED, STD, "Open", Btn43,
  1265.         PXL_SAVE, ENABLED, STD, "FileSave", Btn44,
  1266.         PXL_CUT,  ENABLED, STD, "Edit: Cut",  Btn45,
  1267.         PXL_COPY ,  ENABLED, STD, "Edit: Copy", Btn46,
  1268.         PXL_PASTE,  ENABLED, STD, "Edit: Paste", Btn47,
  1269.         PXL_DELETE,  ENABLED,STD, "Edit: Delete", Btn48,
  1270.         PXL_REPLACE, ENABLED,STD, "Edit: Replace", Btn49,
  1271.         PXL_REDO,  ENABLED, STD, "Redo",  Btn50, 
  1272.         PXL_UNDO,  ENABLED, STD, "Undo",  Btn51, 
  1273.         PXL_PRINT,  ENABLED, STD, "Print",  Btn52,
  1274.         PXL_FIND,  ENABLED, STD, "Find",  Btn53,
  1275.         PXL_PROP, ENABLED, STD,"Properties", Btn54,
  1276.         PXL_PPREV,  ENABLED, STD, "Print Preview",  Btn55, 
  1277.         PXL_SHOHLP,  ENABLED, STD, "Show Context Help",  Btn56)
  1278.     Else
  1279.         {we have geoPiXCL, add the extra bitmap buttons}
  1280.         py2 += 159
  1281.         ToolWindow(px1,py1,px2,py2,POPUP,"geoPiXCL 5.1", 
  1282.         RAISED,     
  1283.         PXL_SMALL,      
  1284.         ANNOT,  ENABLED, STD, "Annotation", Btn01,    
  1285.         SQSELECT,  ENABLED, STD, "Select", Btn02,
  1286.         POLYSELECT,  ENABLED, STD, "PolySelect",Btn03,
  1287.         ERASE,  ENABLED, STD, "Erase",Btn04,
  1288.         OPENIMAGE,  ENABLED, STD, "Open Image",Btn05,
  1289.         HISTOGRAM,  ENABLED, STD, "Histogram", Btn06,
  1290.         MIRROR,  ENABLED, STD, "Image Mirror", Btn07,
  1291.         FLIP,  ENABLED, STD, "Image Flip", Btn08,
  1292.         ROTATE,  ENABLED, STD, "Image Rotate",Btn09,
  1293.         SHOWRGB,  ENABLED, STD, "Show RGB", Btn10,
  1294.         PICKRGB,  ENABLED, STD, "Pick RGB",Btn11,
  1295.         CLASSIFY,  ENABLED, STD, "Fast Classify", Btn12,
  1296.         NORMALIZE,ENABLED,STD, "Normalize Image",Btn13,
  1297.         EQUALIZE,  ENABLED,  STD, "Equalize Image", Btn14,
  1298.         NEGATIVE,  ENABLED, STD, "Negative Image", Btn15,
  1299.         GAMMACRCT,  ENABLED, STD, "Gamma Correct", Btn16,
  1300.         IMAGEINFO,  ENABLED, STD, "ImageInfo", Btn17,
  1301.         FINGER,  ENABLED, STD, "Finger",Btn18,
  1302.         HAND,  ENABLED, STD, "Hand", Btn19,
  1303.         FLOOD,  ENABLED, STD, "Flood", Btn20,
  1304.         SPRAY,  ENABLED, STD, "Spray", Btn21,
  1305.         ZOOMUP,  ENABLED, STD, "Positive Zoom", Btn22,
  1306.         ZOOMDN,  ENABLED, STD, "Negative Zoom", Btn23,
  1307.         BRUSH,  ENABLED, STD, "Brush",Btn24,
  1308.         PEN, ENABLED, STD, "Pen",Btn57,
  1309.         SCTRGRAM, ENABLED, STD, "Scattergram",Btn58,
  1310.         DIGITIZE, ENABLED, STD, "Digitize Points",Btn59,
  1311.         DIALOG, ENABLED, STD, "Show a Dialog Box", Btn60,
  1312.         RECYCLE, ENABLED, STD, "Recycle Bin Operation", Btn61,
  1313.         CDROM, ENABLED, STD, "CD-ROM Operation", Btn62,
  1314.         SAVEALL, ENABLED, STD, "Save All", Btn63,
  1315.         HELPINFO, ENABLED, STD, "Help Information", Btn68,
  1316.         HELPER_1, ENABLED, STD, "Helper #1", Btn64,
  1317.         HELPER_2, ENABLED, STD, "Helper #2", Btn65,
  1318.         HELPER_3, ENABLED, STD, "Helper #3", Btn66,
  1319.         HELPER_4, ENABLED, STD, "Helper #4", Btn67,
  1320.  
  1321.         SELECTSOURCE, ENABLED,STD,"Select TWAIN Source", Btn87,
  1322.         CAMERA, ENABLED, STD,"Digital Camera", Btn87,
  1323.         SCANNER_1, ENABLED, STD,"Scanner#1 Image", Btn88,
  1324.         SCANNER_2, ENABLED, STD,"Scanner#2 Image", Btn89,
  1325.         SCANNER_3, ENABLED, STD,"Scanner#2 Image", Btn90,
  1326.         ERASE_2, ENABLED, STD,"Erase#2 Operation", Btn91,
  1327.  
  1328.         {geoPiXCL specific buttons follow}
  1329.         DIGITIZE,  ENABLED, STD,"Digitize Points#1", Btn69,
  1330.         POINTS,  ENABLED, STD,"Digitize Points#2",Btn70,
  1331.         LINES,  ENABLED, STD,"Digitize Lines",Btn71,
  1332.         POLYGONS,  ENABLED, STD,"Digitize Polygons",Btn72,
  1333.         LABELS,  ENABLED, STD,"Digitize Labels",Btn73,
  1334.         NDVI, ENABLED, STD, "Create NDVI Image",Btn74,
  1335.         AVGIMGSET, ENABLED, STD, "Average Image Set",Btn75,
  1336.         SIGNATURE, ENABLED, STD, "Create Spectral Signature",Btn76,
  1337.         TRGAREAS, ENABLED, STD, "Extract Training Areas",Btn77,
  1338.         MLHCLASS, ENABLED, STD, "Maximum Likelihood Classifier",Btn78,
  1339.         PPDCLASS, ENABLED, STD, "Paralleliped Classifier",Btn79,
  1340.         PCAENHANCE, ENABLED, STD, "Principal Components",Btn80,
  1341.         MARTAYMAP    , ENABLED, STD, "Martin-Tayor Mapping",Btn81,
  1342.         DECORREL, ENABLED, STD, "Decorrelation Stretch",Btn82,
  1343.         GLOBE, ENABLED, STD, "Globe",Btn83,
  1344.         GEOTAG, ENABLED, STD, "geoTag",Btn84,
  1345.         SHARPEN, ENABLED, STD, "Sharpen Image",Btn85,
  1346.         BROVEY, ENABLED, STD, "Brovey Transform Enhancment",Btn86,
  1347.  
  1348.  
  1349.         hx1,hy1,hx2,hy2,POPUP,"History",
  1350.         RAISED,
  1351.         PXL_SMALL,
  1352.         PXL_BACK,  ENABLED, STD, "Back", Btn25,
  1353.         PXL_FORWARD,  ENABLED, STD, "Forward", Btn26,
  1354.         PXL_FAVORITES,  ENABLED, STD, "Favorites",Btn27,
  1355.         PXL_ADDTOFAVORITES,  ENABLED, STD, "Add to Favorites",Btn28,
  1356.         PXL_VIEWTREE,  ENABLED, STD, "View Tree", Btn29,
  1357.  
  1358.  
  1359.         vx1,vy1,vx2,vy2,POPUP,"View",
  1360.         RAISED,
  1361.         PXL_SMALL,
  1362.         PXL_LGICONS,  ENABLED, STD, "View Large Icons",  Btn30,
  1363.         PXL_SMICONS,  ENABLED, STD, "View Small Icons",  Btn31,
  1364.         PXL_PARENTFOLDER,  ENABLED, STD, "Parent Folder",  Btn32,
  1365.         PXL_NEWFOLDER,  ENABLED, STD, "New Folder",  Btn33,
  1366.         PXL_LIST,  ENABLED, STD, "View List",  Btn34,
  1367.         PXL_DETAILS,  ENABLED, STD, "View Details",  Btn35,
  1368.         PXL_SORTBYNM,  ENABLED, STD, "Sort by Name", Btn36,
  1369.         PXL_SORTBYSZ,  ENABLED, STD, "Sort by Size", Btn37,
  1370.         PXL_SORTBYDT,  ENABLED, STD, "Sort by Date",  Btn38,
  1371.         PXL_SORTBYTYP,  ENABLED, STD, "Sort by Type", Btn39,
  1372.         PXL_NETCNCT,  ENABLED, STD, "Network Connect",Btn40,
  1373.         PXL_NETDSCNCT,  ENABLED, STD, "Network DisConnect", Btn41,
  1374.  
  1375.  
  1376.         sx1,sy1,sx2,sy2,POPUP,"Standard",
  1377.         RAISED,
  1378.         PXL_SMALL,
  1379.         PXL_NEW, ENABLED, STD, "New", Btn42,
  1380.         PXL_OPEN, ENABLED, STD, "Open", Btn43,
  1381.         PXL_SAVE, ENABLED, STD, "FileSave", Btn44,
  1382.         PXL_CUT,  ENABLED, STD, "Edit: Cut",  Btn45,
  1383.         PXL_COPY ,  ENABLED, STD, "Edit: Copy", Btn46,
  1384.         PXL_PASTE,  ENABLED, STD, "Edit: Paste", Btn47,
  1385.         PXL_DELETE,  ENABLED,STD, "Edit: Delete", Btn48,
  1386.         PXL_REPLACE, ENABLED,STD, "Edit: Replace", Btn49,
  1387.         PXL_REDO,  ENABLED, STD, "Redo",  Btn50, 
  1388.         PXL_UNDO,  ENABLED, STD, "Undo",  Btn51, 
  1389.         PXL_PRINT,  ENABLED, STD, "Print",  Btn52,
  1390.         PXL_FIND,  ENABLED, STD, "Find",  Btn53,
  1391.         PXL_PROP, ENABLED, STD,"Properties", Btn54,
  1392.         PXL_PPREV,  ENABLED, STD, "Print Preview",  Btn55, 
  1393.         PXL_SHOHLP,  ENABLED, STD, "Show Context Help",  Btn56)
  1394.     Endif
  1395.         
  1396.  
  1397.         Chr(34,Quote$)
  1398.     Return
  1399.  
  1400.  
  1401.  
  1402. WhatsThis:
  1403.     HelpMsg$ = 
  1404. "This is a PiXCL MDI Editor Helper application, written in PiXCL, 
  1405. and provides a means of visually selecting ToolBar and ToolWindow 
  1406. buttons and MessageBox icons, and for selecting colors for pens, 
  1407. brushes, fonts and backgrounds.  
  1408.  
  1409. When you select a button or an icon, the relevent text string for the 
  1410. object is copied to the Clipboard. 
  1411.  
  1412. If you click the vertical color bar, the ChooseColor common dialog appears.
  1413. You can choose a desired color, and the RGB triplet is passed to the 
  1414. clipboard.
  1415.  
  1416. If you click the ''Fonts'' string next to the color bar, the ChooseFont common
  1417. dialog appears. You can choose a desired font, and the PiXCL code 
  1418. for the UseFontExt command is passed to the clipboard.
  1419.  
  1420. If you then click the right mouse button in the current editor document, 
  1421. and select Paste, (or press Ctrl-V from the keyboard) the clipboard string 
  1422. is pasted into your code. 
  1423.  
  1424. If you click Ctrl-right mouse, the helper icons window and toolwindows 
  1425. will toggle between small and large size.
  1426.  
  1427. Please feel free to modify and extend this Helper to suit your own needs 
  1428. and programming style.  The source for this Helper is in 
  1429.     
  1430.     'editools.pxl'."
  1431.  
  1432.     Sample$ = SourceDir$ + "\editools.pxl"
  1433.     StrRepl(HelpMsg$,"'editools.pxl'",Sample$,Res)
  1434.     
  1435.     {Note how the dir pointer is customised to your installation}
  1436.     MessageBox(OK,1,ICON12,HelpMsg$,"PiXCL MDI Editor Helper",Res)
  1437.  
  1438.  
  1439.     Goto Wait_for_Input
  1440.  
  1441.  
  1442. SetParameters: {subroutine}
  1443.     If Hres >=1024
  1444.         wx1 = 840
  1445.         wy1 = 100
  1446.         wx2 = 1006
  1447.         wy2 = 460
  1448.  
  1449.          px1 = 880
  1450.         py1 = 450
  1451.         px2 = 1016
  1452.         py2 = 814
  1453.  
  1454.         hx1 = 760
  1455.         hy1 = 470
  1456.         hx2 = 864
  1457.         hy2 = 564
  1458.  
  1459.         vx1 = 760
  1460.         vy1 = 570
  1461.         vx2 = 864
  1462.         vy2 = 726
  1463.  
  1464.         sx1 = 650
  1465.         sy1 = 530
  1466.         sx2 = 754
  1467.         sy2 = 716
  1468.  
  1469.         IconSize = 0
  1470.         Row1 = 5     Row1a = 37
  1471.         Row2 = 40    Row2a = 72
  1472.         Row3 = 75    Row3a = 107
  1473.         Row4 = 110    Row4a = 142
  1474.         Row5 = 145    Row5a = 177
  1475.         Row6 = 180    Row6a = 212
  1476.         Row7 = 215    Row7a = 247
  1477.         Row8 = 250    Row8a = 282
  1478.         Row9 = 285    Row9a = 317
  1479.         Row10 =320    Row10a = 352
  1480.         Col1 = 5    Col1a = 37
  1481.         Col2 = 40    Col2a = 72
  1482.         Col3 = 75    Col3a = 107
  1483.         Col4 = 107    Col4a = 139
  1484.         InitJ = 38
  1485.         IncrJ = 35
  1486.         Bdr =   110
  1487.         Bdr0 = 115    {get color x1}
  1488.         Bdr1 = 38
  1489.         Bdr2 = 73
  1490.         Bdr3 = 319
  1491.         Bdr4 = 126    {get color x2}
  1492.         Bdr5 = 130    {get font x1}
  1493.         Bdr6 = 151    {get font x2}
  1494.     Endif
  1495.  
  1496.     If Hres = 800
  1497.         wx1 = 640
  1498.         wy1 = 50
  1499.         wx2 = 766
  1500.         wy2 = 410
  1501.  
  1502.          px1 = 680
  1503.         py1 = 300
  1504.         px2 = 784
  1505.         py2 = 634
  1506.  
  1507.         hx1 = 530
  1508.         hy1 = 370
  1509.         hx2 = 634
  1510.         hy2 = 464
  1511.  
  1512.         vx1 = 560
  1513.         vy1 = 440
  1514.         vx2 = 664
  1515.         vy2 = 596
  1516.  
  1517.         sx1 = 450
  1518.         sy1 = 430
  1519.         sx2 = 554
  1520.         sy2 = 616
  1521.  
  1522.         IconSize = 0
  1523.         Row1 = 5    Row1a = 37
  1524.         Row2 = 40    Row2a = 72
  1525.         Row3 = 75    Row3a = 107
  1526.         Row4 = 110    Row4a = 142
  1527.         Row5 = 145    Row5a = 177
  1528.         Row6 = 180    Row6a = 212
  1529.         Row7 = 215    Row7a = 247
  1530.         Row8 = 250    Row8a = 282
  1531.         Row9 = 285    Row9a = 317
  1532.         Row10 =320    Row10a = 352
  1533.         Col1 = 5    Col1a = 37
  1534.         Col2 = 40    Col2a = 72
  1535.         Col3 = 75    Col3a = 107
  1536.         Col4 = 107    Col4a = 139
  1537.         InitJ = 38
  1538.         IncrJ = 35
  1539.         Bdr =   110
  1540.         Bdr0 = 115
  1541.         Bdr1 = 38
  1542.         Bdr2 = 73
  1543.         Bdr3 = 319
  1544.         Bdr4 = 126
  1545.         Bdr5 = 130    {get font x1}
  1546.         Bdr6 = 151    {get font x2}
  1547.     Endif
  1548.  
  1549.  
  1550.     If Hres = 640
  1551.         wx1 = 530
  1552.         wy1 = 50
  1553.         wx2 = 630
  1554.         wy2 = 268
  1555.  
  1556.          px1 = 560
  1557.         py1 = 218
  1558.         px2 = 662
  1559.         py2 = 516
  1560.  
  1561.         hx1 = 465
  1562.         hy1 = 225
  1563.         hx2 = 544
  1564.         hy2 = 306
  1565.  
  1566.         vx1 = 476
  1567.         vy1 = 330
  1568.         vx2 = 555
  1569.         vy2 = 460
  1570.  
  1571.         sx1 = 390
  1572.         sy1 = 320
  1573.         sx2 = 470
  1574.         sy2 = 474
  1575.  
  1576.         IconSize = 16
  1577.         Row1 = 5    Row1a = 21
  1578.         Row2 = 24    Row2a = 40
  1579.         Row3 = 43    Row3a = 59
  1580.         Row4 =62    Row4a = 78
  1581.         Row5 = 81    Row5a = 97
  1582.         Row6 = 100    Row6a = 116
  1583.         Row7 = 119    Row7a = 135
  1584.         Row8 = 138    Row8a = 154
  1585.         Row9 = 157    Row9a = 173
  1586.         Row10 = 176    Row10a = 190
  1587.         Col1 = 5    Col1a = 21
  1588.         Col2 = 24    Col2a = 40
  1589.         Col3 = 43    Col3a = 59
  1590.         Col4 = 59    Col4a = 75
  1591.         InitJ = 21
  1592.         IncrJ = 19
  1593.         Bdr = 61
  1594.         Bdr0 = 70
  1595.         Bdr1 = 22
  1596.         Bdr2 = 41
  1597.         Bdr3 = 174
  1598.         Bdr4 = 94
  1599.         Bdr5 = 100    {get font x1}
  1600.         Bdr6 = 121    {get font x2}
  1601.     Endif
  1602.     Return
  1603.  
  1604. GetWorkingDirectory: {Subroutine; Check in the Registry for the WorkingDir$
  1605.     from HKEY_CURRENT_USER\Software\VYSOR Integration Inc\PiXCL MDI Editor\Settings\CurDir
  1606.     Note here how we can specify the complete registry path. Also, we retrieve the correct
  1607.     SourceDir$ path for the base code file by getting the path of this helper app, then 
  1608.     stripping the path. This is only used to create the path used in the Concept Help MessageBox }
  1609.  
  1610.     RDBOpenKey(@RDB_CURRENT_USER,
  1611.         "Software\VYSOR Integration Inc\PiXCL MDI Editor\Settings",OutHandle1)
  1612.     RDBQueryValue(OutHandle1,"CurDir",WorkingDir$,Res)
  1613.     RDBQueryValue(OutHandle1,"InstDir",SourceDir$,Res)
  1614.     SourceDir$ = SourceDir$ + "\Samples"
  1615.     RDBCloseKey(OutHandle1,Res)
  1616.  
  1617.     Return
  1618.  
  1619.  
  1620.  
  1621.  
  1622.